10 GOTO60
20 "
30 SUBMITED SUMMER '86     [164] TPUG [154]EST                             BY JAMES DUGGAN
40 "162 TWEEDSMUIR DR.    NORTH BAY, ONTARIO         P1A 3T6
50 "
60 [151]36879,8
70 [153]"SYSLOAD THE PURPOSE OF THIS  PROGRAM IS TO         TEACH A BIT ABOUT ";
80 [153]"    TOPOGRAPHY BY USING A COMPUTER MAP."
90 [153]" YOU MUST INDICATE    WHAT ITEM THE YELLOW  '(null)' SYMBOL IS UNDER ONTHE MAP ";
100 [153]"BY MEANS OF A LETTER BEING PRESSED."
110 [153]" YOU WILL HAVE SOME   TIME TO STUDY THE     ITEMS REQUIRED TO     KNOW ";
120 [153]"FOR THIS PROGRAM BEFORE EACH QUESTION.":[153]:[153]"    PRESS ANY KEY WAIT"
130 [141]1130:[141]1100
140 [153]"THE COMMANDS FOR THISPROGRAM ARE:CMDCMDCMDXSYS=HELP"
150 [153]"         ZSYS=SEE MAP"
160 [153]"         VSYS=CHANGE                QUESTION          SPCSYSWAIT=ANSWER IT"
170 [153]" YOU MAY ONLY USE THE HELP COMMAND ONCE     EVERY QUESTION."
180 [153]"ONON    PRESS ANY KEY WAIT"
190 [141]1130:[141]1100
200 [153]"YOU WILL BE ASKED    TWENTY QUESTIONS PER  ROUND."
210 [153]"YOU MAY BE ASKED THE SAME QUESTION TWICE   PER ROUND, BUT THAT'S TO YOUR "
220 [153]"ADVANTAGE."
230 [153]"      GOOD LUCK!"
240 [153]"ONON    PRESS ANY KEY WAIT"
250 [141]1130:[141]1100:[141]1140
260 C[178]0:S[178]0
270 [141]1080
280 [153]"LOADWAIT                PAGE 1SYS-PAVED ROAD(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)SYS-TRAIN TRACKS(null)(null)(null)(null)(null)(null)(null)(null)";
290 [153]"(null)SYS-PATH.................SYS-LI";
300 [153]"GHTHOUSE          *SYS-PORT                (null)SYS-BUILDINGS          RNDCOSWAITSYS";
310 [153]"-CEMETARY          [C]SYS-PETROLIUM RESERVOIR .SYS-PIPE LINELENLENLENLENLENLENLENLENLENLENLENLEN"
320 [141]1130:[141]1120:[141]1130:[153]"LOAD";:[141]1140
330 [153]"                PAGE 2SYS-TELEPHONE LINE>>>>>>>SYS-WATER RESERVOIR    ()";
340 [153]"SYS-MINE                (null)";
350 [153]"SYS-FENCE(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)SYS-SEASONAL FLOOD-------WAITSYS-SWAMP LANDSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(";
360 [153]"SPC(SPC(SYS-BRIDGE            >-<SYS-RAPIDS:::::::::::::::WAITSYS-PICNIC GROUNDS";
370 [153]"     OR^CMDCMDTAB(TAB("
380 [141]1130:[141]1120:[141]1130:[153]"LOAD":[141]1140
390 [141]560:[137]870
400 [141]410:[137]480
410 [153]"LOADWAIT SYSA=PAVED ROAD          B=TRAIN TRACKS        C=PATH"
420 [153]" D=LIGHTHOUSE          E=PORT                F=BUILDINGS           G=CEMETARY"
430 [153]" H=PETROLIUM RESERVOIR I=PIPE LINE           J=TELEPHONE LINE"
440 [153]" K=WATER RESERVOIR     L=MINE                M=FENCE"
450 [153]" N=SEASONAL FLOOD      O=SWAMP LAND          P=BRIDGE             ";
460 [153]" Q=RAPIDS              R=PICNIC GROUNDS     ANSWER?";
470 [141]1130:[142]
480 [141]1100
490 [153]E$"CMD";:[141]1140
500 [139]E$[178]"X"[167]H[178]H[170]1:[139]H[178]1[167]280
510 [139]E$[178]"Z"[167][141]560:[141]1120:[137]400
520 [139]E$[178]"V"[167][141]970:[137]270
530 [139][198](E$)[179]65[176][198](E$)[177]82[167]480
540 [153]E$"CMD";:[141]1140:[139]E$[178]A$[167]940
550 [137]960
560 [153]"LOADCMD                       WAIT   ->(null)()FN  WAIT(null) LEFT$RND WAIT RND STEP  WAIT";
570 [153]">>>(null)  LEFT$ FN (null)(null)WAIT LEFT$        WAIT(null)(null)    # (null)(null)>-<(null)   SPC(NOT   WAIT  (null)";
580 [153]"   THEN  TAB((null)(null)(null)WAITNOTNOTSPC(SPC(SPC(STEP   WAIT   (null)(null)(null)THEN    (null)(null):::(null)WAITSPC(    WAIT     THENTHEN    THEN   ";
590 [153]"(null):     WAIT [C] (null)THEN    THEN    USRPOS    WAIT    (null) THEN  COSWAIT(null)(null)     -    WAIT   (null)";
600 [153]"  THEN    THEN..OR^ -    WAIT  (null)   (null)    THEN  TAB(TAB( -    WAIT(null)(null)   THEN  .COS THEN     -";
610 [153]"    WAIT     (null)     THEN     *    WAITTOTO  THENCOSWAIT* SIN  THEN    STEP     WAITRND (null)TO(null)";
620 [153]"TOTOTOTOTOTO(null)          WAIT SINWAIT (null)TAB( COSRNDRNDCOSLOG           WAIT  THEN   COSCOSWAIT  RND*     ";
630 [153]"    WAIT  (null)(null)(null)(null)COSWAIT   RND    *      WAIT (null)(null)   (null)  RND     STEP      WAITTHEN(null)     (null)(null)(null)";
640 [153]"    (null)       WAIT(null)(null)        (null)         "
650 [153]""C:[153]"CMD                       ";
660 [141]1140
670 [139]R[178]1[167]A$[178]"A":X[178]97
680 [139]R[178]2[167]A$[178]"B":X[178]401
690 [139]R[178]3[167]A$[178]"C":X[178]233
700 [139]R[178]4[167]A$[178]"D":X[178]412
710 [139]R[178]5[167]A$[178]"E":X[178]455
720 [139]R[178]6[167]A$[178]"F":X[178]383
730 [139]R[178]7[167]A$[178]"G":X[178]179
740 [139]R[178]8[167]A$[178]"H":X[178]273
750 [139]R[178]9[167]A$[178]"I":X[178]249
760 [139]R[178]10[167]A$[178]"J":X[178]49
770 [139]R[178]11[167]A$[178]"K":X[178]52
780 [139]R[178]12[167]A$[178]"L":X[178]209
790 [139]R[178]13[167]A$[178]"M":X[178]182
800 [139]R[178]14[167]A$[178]"N":X[178]260
810 [139]R[178]15[167]A$[178]"O":X[178]150
820 [139]R[178]16[167]A$[178]"P":X[178]100
830 [139]R[178]17[167]A$[178]"Q":X[178]147
840 [139]R[178]18[167]A$[178]"R":X[178]258
850 [153]"";:[129]T[178]1[164]X:[153]"";:[130]:[153]"SYSWAIT(null)":[141]1130
860 [142]
870 [153]"WAITSYSCOMMAND?";
880 [141]1100
890 [153]E$"CMD";:[141]1140
900 [139]E$[178]"X"[167]H[178]H[170]1:[139]H[178]1[167]280
910 [139]E$[178]"V"[167][141]410:[141]970:[137]270
920 [139]E$[178]" "[167]400
930 [137]880
940 [153]"CORRECT":[141]1130:[141]1140:S[178]S[170]1
950 [137]270
960 [153]"WRONGCMDCMDCMDCMDCMD";:[141]1130:[141]1140:[141]970:[137]270
970 [153]"CMDCMDCMDCMDCMDCMDCMDIT WAS      CMDCMDCMDCMDCMD"A$:[141]1130:[141]1120:[141]1140:[141]560:[141]1120
980 [142]
990 PC[178][181](S[173]20[172]10000[170]0.5)[173]100
1000 [153]"LOAD     OUT OF 20:":[153]" NUMBER RIGHT:";S:[153]" NUMBER WRONG:";20[171]S
1010 [153]"   PERCENTAGE:";PC
1020 [139]HS[179]PC[167]HS[178]PC
1030 [153]"   HIGH SCORE:";HS:[153]"     PLAY AGAIN?";
1040 [141]1100
1050 [139]E$[178]"Y"[167][153]E$:[141]1140:[137]250
1060 [139]E$[178]"N"[167][153]E$:[141]1140:[128]
1070 [137]1040
1080 R[178][181]([187](1)[172]18)[170]1:H[178]0:C[178]C[170]1:[139]C[178][177]20[167]990
1090 [142]
1100 [161]E$:[139]E$[178]""[167] 1100
1110 [141]1130:[142]
1120 [129] T[178]1[164]2500:[130]T:[142]
1130 [151]36878,15:[151]36876,220:[129]L[178]1[164]5:[130]L:[151]36878,0:[142]
1140 [129]T[178]1[164]500:[130]T:[142]